val test_contour :
  Sdlvideo.surface ->
  Sdlvideo.color array array ->
  'a ->
  Sdlvideo.color array array -> int -> int -> int -> int -> Sdlvideo.color
val get_contour :
  Sdlvideo.surface ->
  Sdlvideo.color array array ->
  Sdlvideo.surface -> Sdlvideo.color array array -> int -> int -> unit
val set_value : (float * 'a) array array -> int -> int -> float * 'a -> unit
val search_high : 'a -> ('a * float) list -> float
val search_high_ref :
  'a array array -> int * int -> int * int -> ('a * float) list -> float
val get_mtrx_disthigh :
  'a ->
  Sdlvideo.color array array ->
  'b -> 'c -> 'd -> int -> int -> (float * (int * int)) array array
val gt_dist :
  'a array array ->
  float array array ->
  (float * float) array array ->
  int ->
  int -> (float * (int * int)) array array -> ('a * float) list -> unit
val convert : int -> 'a array -> 'a list -> unit
val parse : string -> ((int * int * int) * float) list
val get_dims : Sdlvideo.surface -> int * int
val sdl_init : unit -> unit
val compute :
  string ->
  string ->
  string ->
  Sdlvideo.surface * (float * float) array array * float array array * 
  int * int * ((int * int * int) * float) list *
  ((Sdlvideo.color * float) list -> unit)
